home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / regreq.zip / REGREQ.PPS < prev    next >
Text File  |  1995-03-20  |  4KB  |  121 lines
  1. ;------------------------------------------------------------------------
  2. ;                       REGREQ.PPE  v1.0
  3. ;                    Copyright 1995 - Herbert Bushong
  4. ;------------------------------------------------------------------------
  5.  
  6. ;       A New user log-in PPE for closed boards to allow a new user to
  7. ;       Download an access request file before logging them off.
  8. ;       This PPE is used in a security specific display file for a demo
  9. ;       account that has been set up for this purpose.
  10. ;       Uses a config file to supply necessary information
  11.  
  12.  
  13. *$USEFUNCS
  14. *$INCLUDE:d:\pcb\ppl\libs\miscfn.lib
  15.  
  16. BEGIN
  17.  
  18. STRING CfgFile, RRIntroFile, RRDLFile, TempIn
  19. STRING DLCmd, DLProt
  20. STRING MsgTemp, MsgPriv, MsgFrom,  MsgTo, MsgConf, MsgSubject
  21. STRING RRName, RRStreet1, RRStreet2, RRCity, RRState, RRZip, RRCountry
  22. INTEGER fh1
  23.  
  24. CfgFile=PPEPATH()+PPENAME()+".CFG"
  25. MsgTemp=PPEPATH()+"RRTMPMSG.$$$"
  26. MsgFrom="SYSTEM DAEMON"
  27. MsgSubject=PPEName()+": notice"
  28. DLCmd="D;"+RRDLFile
  29. DLProt="Z"
  30.  
  31. ;READ CONFIG FILE
  32. fopen fh1, CfgFile, O_RD,S_DN
  33. if (FERR(fh1)) THEN
  34.         LOG FALSE, "Error opening "+CfgFile
  35.         PRINTLN "An Error Occured. Please try back another time...."
  36.         GOTO finished
  37. ENDIF
  38. RRIntroFile=GetCfgLine(fh1)
  39. RRDLFile=GetCfgLine(fh1)
  40.  
  41. MsgTo=GetCfgLine(fh1)
  42.         IF (MsgTo="") Let MsgTo="SYSOP"
  43. MsgConf=GetCfgLine(fh1)
  44.         If (MsgConf="") LET MsgConf="0"
  45. MsgPriv = UPPER(GetCfgLine(fh1))
  46.         If ((MsgPriv<>"N")&&(MsgPriv<>"R")) Let MsgPriv="R"
  47. FCLOSE fh1
  48.  
  49. ;ASK IF THEY WANT TO DL Reg. Request File
  50. CLS
  51. DISPFILE RRIntroFile, GRAPH+LANG
  52. NEWLINE
  53. TempIn="Y"
  54. INPUTYN "Would you like to download the Access Request File",TempIn,@X0A
  55. TempIn=UPPER(TempIn)
  56. NEWLINE
  57. IF (TempIn=NoChar()) Goto AskMail
  58. InputStr "Please provide your Real Name",RRName,@X0A,45,MASK_ALPHA(),LFAFTER+FIELDLEN
  59. NewLine
  60. PrintLN "@X0BChoose a Transfer Protocol"
  61. InputStr "(X)-modem, (Y)-Modem, or (Z)-modem",DLProt,@X0B,1,"xzyXYZ",LFAFTER+FIELDLEN
  62. DLCmd=DLCmd+";"+DLProt
  63. COMMAND FALSE,DLCmd
  64. fh1=FNEXT()
  65. FCREATE fh1,MsgTemp,O_WR,S_DB
  66. FPUTLN fh1, RRName
  67. FPUTLN fh1, "has downloaded the Request Registration File."
  68. FCLOSE fh1
  69. GOTO SendMessage
  70.  
  71. :AskMail
  72. TempIn="Y"
  73. INPUTYN "Would you like to an application Mailed to you",TempIn,@X0A
  74. TempIn=UPPER(TempIn)
  75. NEWLINE
  76. IF (TempIn=NoChar()) Goto Finished
  77. CLS
  78. PRINTLN "@X0APlease Provide the Following Information@X07"
  79. Newlines 2
  80. TempIn=""
  81. PROMPTSTR 259, TempIn, 25,MASK_ALPHA(),FIELDLEN+GUIDE+LFAFTER
  82. RRName=TempIn
  83. TempIn=""
  84. PROMPTSTR 260, TempIn, 25,MASK_ALPHA(),FIELDLEN+GUIDE+LFAFTER
  85. RRName=RRName+TempIn
  86. DISPTEXT 698, NEWLINE
  87. PROMPTSTR 699, RRStreet1, 50,MASK_ALPHA(),FIELDLEN+GUIDE+LFAFTER
  88. PROMPTSTR 700, RRStreet2, 50,MASK_ALPHA(),FIELDLEN+GUIDE+LFAFTER
  89. PROMPTSTR 701, RRCity, 25,MASK_ALPHA(),FIELDLEN+GUIDE+LFAFTER
  90. PROMPTSTR 702, RRState,10,MASK_ALPHA(),FIELDLEN+GUIDE+LFAFTER
  91. PROMPTSTR 703, RRZip, 10,MASK_ALPHA(),FIELDLEN+GUIDE+LFAFTER
  92. PROMPTSTR 704, RRCountry, 15,MASK_ALPHA(),FIELDLEN+GUIDE+LFAFTER
  93.  
  94. fh1=FNEXT()
  95. FCREATE fh1,MsgTemp,O_WR,S_DB
  96. FPUTLN fh1, RRName
  97. FPUTLN fh1, "has requested you mail the Request Registration Form."
  98. FPUTLN fh1, "The following address info was provided:"
  99. FPUTLN fh1, ""
  100. FPUTLN fh1, RRName
  101. FPUTLN fh1, RRStreet1
  102. if (TRIM(RRStreet2," ")<>"") FPUTLN fh1, RRStreet2
  103. FPUTLN fh1, TRIM(RRCity," ")+", "+RRState+" "+RRZip
  104. FPUTLN fh1, RRCountry
  105. FCLOSE fh1
  106.  
  107. :SendMessage
  108. NEWLINES 2
  109. PRINTLN "@X0DSending Message to Sysop@X07"
  110. MESSAGE S2I(MsgConf,"10"), MsgTo, MsgFrom, MsgSubject, MsgPriv, 0, FALSE, FALSE, MsgTemp
  111. CLS
  112. PRINTLN "@X0AThank you..."
  113. PRINTLN "Now Logging off...@X07"
  114.  
  115.  
  116. :Finished
  117.  
  118. BYE
  119. END
  120.  
  121.